home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
lsp
/
setf.data
< prev
next >
Wrap
Text File
|
1986-09-10
|
10KB
|
224 lines
#(
#!
(lisp::in-package 'user::lisp)
#!
(lisp::export '(lisp::setf lisp::psetf lisp::shiftf lisp::rotatef lisp::define-modify-macro lisp::defsetf lisp::getf lisp::remf lisp::incf lisp::decf lisp::push lisp::pushnew lisp::pop lisp::define-setf-method lisp::get-setf-method lisp::get-setf-method-multiple-value))
#!
(lisp::in-package 'lisp::system)
lisp::progn
system::putprop
lisp::quote
'system::setf-update-fn
lisp::remprop
'system::setf-lambda
'system::setf-method
"A doc-string expected."
"Extra arguments."
'system::setf-documentation
1
"(store-variable) expected."
'system::setf-lambda
'system::setf-update-fn
'system::setf-method
'system::setf-documentation
lisp::function
lisp::lambda
'system::setf-method
'system::setf-lambda
'system::setf-update-fn
'system::setf-documentation
"Multiple store-variables are not allowed."
lisp::setq
"Cannot get the setf-method of ~S."
system::setf-method
system::setf-update-fn
system::setf-lambda
"Cannot expand the SETF form ~S."
lisp::car
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca system::x system::y) system::y))
system::setf-documentation
lisp::cdr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd system::x system::y) system::y))
lisp::caar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::car system::x) system::y) system::y))
lisp::cdar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::car system::x) system::y) system::y))
lisp::cadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdr system::x) system::y) system::y))
lisp::cddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdr system::x) system::y) system::y))
lisp::caaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caar system::x) system::y) system::y))
lisp::cdaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caar system::x) system::y) system::y))
lisp::cadar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdar system::x) system::y) system::y))
lisp::cddar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdar system::x) system::y) system::y))
lisp::caadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cadr system::x) system::y) system::y))
lisp::cdadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cadr system::x) system::y) system::y))
lisp::caddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddr system::x) system::y) system::y))
lisp::cdddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cddr system::x) system::y) system::y))
lisp::caaaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caaar system::x) system::y) system::y))
lisp::cdaaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caaar system::x) system::y) system::y))
lisp::cadaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdaar system::x) system::y) system::y))
lisp::cddaar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdaar system::x) system::y) system::y))
lisp::caadar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cadar system::x) system::y) system::y))
lisp::cdadar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cadar system::x) system::y) system::y))
lisp::caddar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddar system::x) system::y) system::y))
lisp::cdddar
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cddar system::x) system::y) system::y))
lisp::caaadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caadr system::x) system::y) system::y))
lisp::cdaadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caadr system::x) system::y) system::y))
lisp::cadadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdadr system::x) system::y) system::y))
lisp::cddadr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdadr system::x) system::y) system::y))
lisp::caaddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::caddr system::x) system::y) system::y))
lisp::cdaddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::caddr system::x) system::y) system::y))
lisp::cadddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdddr system::x) system::y) system::y))
lisp::cddddr
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd (lisp::list 'lisp::cdddr system::x) system::y) system::y))
lisp::first
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca system::x system::y) system::y))
lisp::second
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdr system::x) system::y) system::y))
lisp::third
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddr system::x) system::y) system::y))
lisp::fourth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cdddr system::x) system::y) system::y))
lisp::fifth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::cddddr system::x) system::y) system::y))
lisp::sixth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 5 system::x) system::y) system::y))
lisp::seventh
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 6 system::x) system::y) system::y))
lisp::eighth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 7 system::x) system::y) system::y))
lisp::ninth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 8 system::x) system::y) system::y))
lisp::tenth
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr 9 system::x) system::y) system::y))
lisp::rest
((system::x) (system::y) (lisp::list 'lisp::progn (lisp::list 'lisp::rplacd system::x system::y) system::y))
lisp::svref
system::svset
lisp::elt
system::elt-set
lisp::symbol-value
lisp::set
lisp::symbol-function
system::fset
lisp::macro-function
((system::s) (system::v) (lisp::list 'lisp::progn (lisp::list 'system::fset system::s (lisp::list 'lisp::cons ''lisp::macro system::v)) system::v))
lisp::aref
system::aset
lisp::get
((system::s system::p lisp::&optional system::d) (system::v) (lisp::list 'system::putprop system::s system::v system::p))
lisp::nth
((system::n system::l) (system::v) (lisp::list 'lisp::progn (lisp::list 'lisp::rplaca (lisp::list 'lisp::nthcdr system::n system::l) system::v) system::v))
lisp::char
system::char-set
lisp::schar
system::schar-set
lisp::bit
lisp::sbit
lisp::fill-pointer
system::fill-pointer-set
lisp::symbol-plist
system::set-symbol-plist
lisp::gethash
((system::k system::h lisp::&optional system::d) (system::v) (lisp::list 'system::hash-set system::k system::h system::v))
lisp::documentation
((system::s system::d) (system::v) (lisp::list 'lisp::case system::d (lisp::list 'lisp::variable (lisp::list 'system::putprop system::s system::v ''system::variable-documentation)) (lisp::list 'lisp::function (lisp::list 'system::putprop system::s system::v ''system::function-documentation)) (lisp::list 'lisp::structure (lisp::list 'system::putprop system::s system::v ''system::structure-documentation)) (lisp::list 'lisp::type (lisp::list 'system::putprop system::s system::v ''system::type-documentation)) (lisp::list 'lisp::setf (lisp::list 'system::putprop system::s system::v ''system::setf-documentation)) (lisp::list lisp::t (lisp::list 'lisp::error "~S is an illegal documentation type." system::d))))
lisp::getf
lisp::let
system::put-f
lisp::subseq
((system::sequence1 system::start1 lisp::&optional system::end1) (system::sequence2) (lisp::list 'lisp::replace system::sequence1 system::sequence2 :start1 system::start1 :end1 system::end1))
lisp::the
lisp::apply
"Can't get the setf-method of ~S."
2
lisp::append
lisp::list
"Can't get the setf-method of ~S."
lisp::char-bit
lisp::set-char-bit
lisp::ldb
lisp::dpb
lisp::mask-field
lisp::deposit-field
system::structure-access
lisp::vector
system::structure-set
lisp::let*
"~S is an illegal SETF form."
"~S is an illegal SETF form."
"~S is an illegal PSETF form."
(lisp::nil)
"~S is an illegal PSETF form."
system::access-form
lisp::&optional
lisp::&rest
lisp::list*
lisp::defmacro
system::reference
lisp::when
(lisp::symbolp system::reference)
lisp::return-from
((system::access-form system::reference))
'lisp::setq
lisp::multiple-value-bind
(system::vars system::vals system::stores system::store-form system::access-form)
(lisp::get-setf-method system::reference)
'lisp::let*
lisp::mapcar
#'lisp::list
(lisp::append system::vars system::stores)
system::vals
system::store-form
system::flag
system::rem-f
lisp::+
lisp::-
lisp::cons
lisp::adjoin
lisp::prog1
lisp::defsetf
lisp::define-setf-method
lisp::get-setf-method
lisp::get-setf-method-multiple-value
system::setf-expand-1
system::setf-expand
lisp::setf
lisp::psetf
lisp::shiftf
lisp::rotatef
lisp::define-modify-macro
lisp::remf
lisp::incf
lisp::decf
lisp::push
lisp::pushnew
lisp::pop
system::find-documentation
)